home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed2.d64 / word machine (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  8KB  |  282 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"M <YES>
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 41 IFUS$="H"THENPOKEUC,1:RETURN
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  29. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  30. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  31. 300 REM DERIVED FROM COMMODORE ONTARIO      EDUCATIONAL SOFTWARE PROJECT 1983
  32. 310 PROJECT DIRECTOR: FRANK WINTER
  33. 320 REM PROGRAM NAME: WORD MACHINE
  34. 330 REM WRITTEN BY BILL BATCHER
  35. 340 REM MODIFIED BY AL MONETTA AND KARL         ZIM, NOV 79
  36. 350 REM REVISED BY MANUEL KYRINIS
  37. 360 REM UPDATED BY BILL CUMBERLAND 90
  38. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  39. 405 PRINT"              [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  40. 407 [153]"    * (null)O BE READ TO THE PUPILS.STOP":[141]760:[141]792
  41. 410 [153]"                    INT    ABS _TAN GRAB DOOR"
  42. 415 [153]"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWINT    ABSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  43. 420 [153]"  FREFREFREINT    ABSFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  44. 425 [153]"     INT    ABS _TAN TRAP DOOR"
  45. 430 [153]"                           "
  46. 435 [153]" (null)HIS IS A WORD MACHINE.  RIGHT$T CAN MAKE"
  47. 440 [153]" LOTS OF WORDS.  (null)IGHT NOW IT IS NOT"
  48. 445 [153]" WORKING VERY WELL.  (null)HE LETTERS OFTEN"
  49. 460 [153]" GET MIXED UP."
  50. 465 [141]820
  51. 470 [153]"LOAD   (null)OU CAN RESCUE THE GOOD WORDS AND "
  52. 475 [153]"   LEAVE THE OTHERS IN THE MACHINE."
  53. 480 [153]"   (null)OU WILL HAVE TO WATCH THE WORDS"
  54. 485 [153]"   CAREFULLY AS THEY COME ACROSS THE"
  55. 490 [153]"   CHUTE.  (null)HEN YOU SEE A WORD THAT"
  56. 495 [153]"   MATCHES THE ONE IN THE UPPER LEFT-"
  57. 500 [153] "   HAND CORNER, GRAB IT!"
  58. 505 [141]820
  59. 510 [153]"LOAD   (null)O PULL OUT A WORD, WAIT UNTIL IT"
  60. 515 [153]"   IS UNDER THE GRAB DOOR, AND THEN"
  61. 520 [153]"   PRESS 'G' TO GRAB IT.  RIGHT$F YOU MISS"
  62. 530 [153]"   A GOOD WORD, IT WILL FALL OUT THE"
  63. 535 [153]"   TRAP DOOR.  (null)RY TO GRAB 5 GOOD"
  64. 540 [153]"   WORDS BEFORE THEY PASS THE GRAB"
  65. 545 [153] "   DOOR.  RIGHT$F YOU MISS 5 GOOD WORDS,"
  66. 550 [153] "   YOUR TURN IS OVER."
  67. 555 [141]820
  68. 560 [153]"LOAD (null)OU CAN GIVE THE COMPUTER A WORD TO "
  69. 565 [153]" USE OR LET IT CHOOSE ONE."
  70. 570 [141]820
  71. 575 [142]
  72. 700 [143] <YES>
  73. 705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  74. 710 [151]54296,15:[151]54277,42:[151]54278,250
  75. 715 [151]54276,23:[151]54273,23:[151]54272,191
  76. 720 [129]T[178]1[164]150:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  77. 725 [151]54296,0:[142]
  78. 730 [143] <NO>
  79. 735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  80. 740 [151]54296,15:[151]54277,18:[151]54278,242
  81. 745 [151]54276,33:[151]54273,4:[151]54272,48
  82. 750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  83. 755 [151]54296,0:[142]
  84. 760 [143] <BLIP>
  85. 765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  86. 770 [151]54296,6:[151]54277,42:[151]54278,250
  87. 775 [151]54276,23:[151]54273,23:[151]54272,191
  88. 780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  89. 785 [151]54296,0:[142]
  90. 790 [129]T[178]1[164]500:[130]:[142]
  91. 791 [129]T[178]1[164]1000:[130]:[142]
  92. 792 [129]T[178]1[164]2000:[130]:[142]
  93. 793 [129]T[178]1[164]3000:[130]:[142]
  94. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1:[151]646,5
  95. 801 [153]"      A TPUG EDUCATIONAL PROGRAM
  96. 802 PRINT"           FOR C64 COMPUTER
  97. 803 [153]"             GRADES K - 1
  98. 804 GOSUB791
  99. 805 PRINT"                                        [146]";
  100. 806 PRINT"                                        [146]";
  101. 807 PRINT"             WORD MACHINE               [146]";
  102. 808 PRINT"                                        [146]";
  103. 809 PRINT"                                        [146]"
  104. 810 GOSUB791:GOSUB760
  105. 811 PRINT"          INSTRUCTIONS?  Y/N
  106. 812 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]812
  107. 813 [139]UI$[178]"Y"[167] [141]400
  108. 814 [137]1000
  109. 820 [141]791:[141]760
  110. 822 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAIT "
  111. 825 [161]UI$:[139]UI$[179][177]" "[167]825
  112. 830 [142]
  113. 835 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT "
  114. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  115. 845 [142]
  116. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  117. 855 [153]" --------------------------------------"
  118. 860 [143] IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS THE LETTER 'H'"
  119. 865 UH[178]0:[153]"":[142]
  120. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  121. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  122. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  123. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  124. 905 UD$[178]"":UP$[178]"                                      "
  125. 909 [142]
  126. 910 [141]900:[153]"LOAD":[153]"CLOSE"
  127. 920 [141]800:[137]300
  128. 1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0
  129. 1020 TT[178]TI[170]188[172]FS
  130. 1030 [139]TI[179]TT[137]1320
  131. 1040 [137]2100
  132. 1400 [143] WORDS YOU CAN RESET BEGIN AT 650
  133. 2100 S[178]US[170]766:T[178]S[170]1:U[178]T[170]1:O[178]US[170]21:P[178]O[170]1:Q[178]P[170]1:R[178]0:V[178]0
  134. 2110 [151]UT,UL%:FS[178].1:[143] FS<1 TO SPEED UP GAME
  135. 2115 [153] " STR$O YOU WANT TO CHOOSE A WORD?CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD((null)/(null)) "
  136. 2120 [153]" ATNNSWER, THEN PRESS  (null)VAL(null)(null)(null)(null) WAITONONONONONONONONONONONCMDCMDCMDCMDCMDCMDCMDCMD";
  137. 2125 UT$[178]" (null)ORD (null)ACHINE":UG$[178]"":UP[178]0:[141]35
  138. 2130 [139]UR$[178]"Y"[137]2260
  139. 2150 [131]"PEEK","STR$","(null)","(null)","(null)","(null)","LEFT$","(null)","(null)","(null)","(null)","(null)","(null)","(null)","(null)","(null)","(null)"
  140. 2160 [131]"(null)","(null)","VAL","LEN","(null)","ASC","MID$","CHR$","(null)","RIGHT$","MID$","(null)","(null)","ATN","VAL"
  141. 2170 [131]"(null)ATN(null)","(null)ATN(null)","ATN(null)(null)","(null)ATN(null)","(null)(null)(null)","(null)(null)(null)","(null)(null)(null)","ATNLEN(null)","LENATN(null)","(null)ATN(null)","ATNSTR$STR$","STR$ATNSTR$"
  142. 2180 [131]"PEEK(null)PEEK","PEEKRIGHT$PEEK","STR$RIGHT$STR$","PEEKRIGHT$STR$","ATN(null)(null)","(null)ATN(null)","VALATN(null)","ATN(null)VAL","(null)VALATN","ASC(null)(null)","STR$(null)CHR$","(null)(null)(null)"
  143. 2190 [131]"(null)(null)(null)","(null)(null)(null)","(null)RIGHT$(null)","PEEKVALSTR$","PEEKRIGHT$CHR$","PEEKATNCHR$","(null)(null)(null)","(null)ATN(null)","(null)VALSTR$","(null)RIGHT$STR$"
  144. 2200 A[178][181]([187](TI)[172]34)[170]32
  145. 2210 [129]B[178]1[164]A
  146. 2220 [135]B$
  147. 2230 [130]B
  148. 2240 [140]
  149. 2250 [137]2300
  150. 2260 [153]" (null)HAT IS YOUR 3-LETTER WORD? ";
  151. 2280 UL[178]3:US$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ":[141]35:B$[178]UR$
  152. 2290 [139][195](B$)[179][177]3[137]2260
  153. 2295 [151]UT,UL%
  154. 2300 [153]"LOAD TOTOTOTOTOTOTOTOTO":[139]UW[178]0[167][158]UU,15
  155. 2301 [141]860
  156. 2310 C$[178][200](B$,1):D$[178][202](B$,2,1):E$[178][201](B$,1)
  157. 2320 [139][198](C$)[179]124[167]C$[178][199]([198](C$)[170]128)
  158. 2330 [139][198](D$)[179]124[175][198](D$)[179][177]0[167]D$[178][199]([198](D$)[170]128)
  159. 2340 [139][198](E$)[179]124[167]E$[178][199]([198](E$)[170]128)
  160. 2350 B$[178]C$[170]D$[170]E$
  161. 2360 [153]"SYS (null)OOK FOR:WAIT "B$
  162. 2363 [153]"LIST (null)RESS  CHR$ WAIT
  163. 2366 PRINT" TO GRAB A WORD.
  164. 2370 [153]"                    INT    ABS PRINT_TAN GRAB DOORLIST"
  165. 2380 [153]"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWINT    ABSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  166. 2390 [153]"  FREFREFREINT    ABSFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  167. 2400 [153]"     INT    ABS DEF_TAN TRAP DOORLIST"
  168. 2410 D[178]([187](TI)[172]12)[171]6
  169. 2420 [139]D[177]1[137]2450
  170. 2430 X$[178]C$:Y$[178]D$:Z$[178]E$
  171. 2440 [137]2580
  172. 2450 [139]D[177]2[137]2480
  173. 2460 X$[178]E$:Y$[178]C$:Z$[178]D$
  174. 2470 [137]2580
  175. 2480 [139]D[177]3[137]2510
  176. 2490 X$[178]D$:Y$[178]E$:Z$[178]C$
  177. 2500 [137]2580
  178. 2510 [139]D[177]4[137]2540
  179. 2520 X$[178]C$:Y$[178]E$:Z$[178]D$
  180. 2530 [137]2580
  181. 2540 [139]D[177]5[137]2570
  182. 2550 X$[178]E$:Y$[178]D$:Z$[178]C$
  183. 2560 [137]2580
  184. 2570 X$[178]D$:Y$[178]C$:Z$[178]E$
  185. 2580 E[178][187](TI)
  186. 2590 [139]E[177].3[137]2710
  187. 2600 [139]E[177].1[137]2640
  188. 2610 R$[178]X$
  189. 2620 [141]3060
  190. 2630 X$[178]S$:[137]2710
  191. 2640 [139]E[177].2[137]2680
  192. 2650 R$[178]Y$
  193. 2660 [141]3060
  194. 2670 Y$[178]S$:[137]2710
  195. 2680 R$[178]Z$
  196. 2690 [141]3060
  197. 2700 Z$[178]S$
  198. 2710 G[178]0
  199. 2720 [153]""[163]37)X$;Y$;Z$
  200. 2730 [153]"  "
  201. 2740 [129]F[178]US[170]480[164]US[170]519
  202. 2750 ZA[178][194](F[170]1)
  203. 2760 [151]F,ZA
  204. 2770 [130]F
  205. 2780 G[178]G[170]1
  206. 2790 [139][194](US[170]486)[179][177][198](C$)[171]128[137]2870
  207. 2800 [139][194](US[170]487)[179][177][198](D$)[171]128[137]2870
  208. 2810 [139][194](US[170]488)[179][177][198](E$)[171]128[137]2870
  209. 2820 L[178][194](US[170]486):M[178][194](US[170]487):N[178][194](US[170]488)
  210. 2830 [129]X[178]US[170]486[164]US[170]488:[151]X,32:[130]X
  211. 2840 [151]S,L:[151]T,M:[151]U,N
  212. 2850 V[178]V[170]1:[139]V[178]5[137]3450
  213. 2860 S[178]S[171]40:T[178]T[171]40:U[178]U[171]40
  214. 2870 [161]M$
  215. 2875 [139]M$[178]"H"[167]US$[178]"H":UL[178]1:UR$[178]"H":UI$[178][199](13):[153]"":[141]50
  216. 2880 [139]M$[178]"G"[137]2900
  217. 2890 [137]3040
  218. 2900 [129]K[178]US[170]499[164]US[170]502
  219. 2910 [139][194](K)[178]32[137]2930
  220. 2920 [130]K
  221. 2930 K[178]K[170]1
  222. 2935 [139]K[177]US[170]519[167]2740
  223. 2940 [139][194](K)[178]32[137]2930
  224. 2950 L[178][194](K):M[178][194](K[170]1):N[178][194](K[170]2)
  225. 2960 [151]O,L:[151]P,M:[151]Q,N
  226. 2970 [151]K,32:[151]K[170]1,32:[151]K[170]2,32
  227. 2980 O[178]O[170]40:P[178]P[170]40:Q[178]Q[170]40
  228. 2990 [139]L[179][177][198](C$)[171]128[137]3030
  229. 3000 [139]M[179][177][198](D$)[171]128[137]3030
  230. 3010 [139]N[179][177][198](E$)[171]128[137]3030
  231. 3020 R[178]R[170]1
  232. 3030 [139]O[177]US[170]192[137]3370
  233. 3040 [139]G[177]6[137]2410
  234. 3050 [137]2740
  235. 3060 [135]K$,L$
  236. 3070 [139]K$[178]R$[137]3110
  237. 3080 [139]L$[178]R$[137]3100
  238. 3090 [137]3060
  239. 3100 S$[178]K$:[137]3120
  240. 3110 S$[178]L$
  241. 3120 [140]:[142]
  242. 3130 [153]"LOAD":[158]UU,15
  243. 3140 [129]I[178]US[164]US[170]39
  244. 3150 [151]I,160
  245. 3160 [130]I
  246. 3170 [129]I[178]US[170]39[164]US[170]999[169]40
  247. 3180 [151]I,160
  248. 3190 [130]I
  249. 3200 [129]I[178]US[170]999[164]US[170]960[169][171]1
  250. 3210 [151]I,160
  251. 3220 [130]I
  252. 3230 [129]I[178]US[170]960[164]US[169][171]40
  253. 3240 [151]I,160
  254. 3250 [130]I
  255. 3370 T[178]TI
  256. 3380 [139]TI[179]T[170]60[137]3380
  257. 3390 [153]"LOAD      (null)OU HAVE GRABBED 5 WORDS.":[141]760:[141]792
  258. 3393 [139]R[178]5[167]3495
  259. 3400 T[178]TI
  260. 3410 [139]TI[179]T[170]60[137]3410
  261. 3420 [153]"SYS      LENORRECT >>>>>> "R"LIST":[141]700:[141]792
  262. 3430 T[178]TI
  263. 3440 [139]TI[179]T[170]60[137]3440
  264. 3460 [153]"DEF      (null)OST IN TRAP > "V"LIST":[141]730:[141]793
  265. 3470 [137] 3520
  266. 3480 [143] IFR<5GOTO3520
  267. 3490 [143] IFV>0GOTO3520
  268. 3495 [153]"      ATNLL 5 WORDS WERE CORRECT!":[141]700:[141]791
  269. 3500 [153]"          LENONGRATULATIONS!!":[141]700:[141]793
  270. 3510 [143]  GOSUB1300
  271. 3520 [153] "      STR$O YOU WANT TO PLAY AGAIN ?
  272. 3525 PRINT"                 [217]/[206][157][157]";
  273. 3530 UL=1:US$="YN":GOSUB35
  274. 3540 IFUR$="Y"THEN PRINT"[147]":RESTORE:GOTO2100
  275. 3560 PRINT"[147] RETURNING TO THE MENU
  276. 3570 [147]"MENU",8
  277. 3580 [138]
  278. 3590 [128]
  279. 3620 [140]:[137]1
  280. 3700 [143]
  281. 4000 [143] WHC 90:11:27
  282.